home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)tb.d64 / bat.demo < prev    next >
Text File  |  2007-02-28  |  465b  |  28 lines
  1.  
  2.  
  3.  
  4.  
  5. ╨┴╟┼
  6. USE SYSTEM
  7. TEXTCOLORS(0,0,7)
  8. ! ┬ATCH FILE DEMO
  9. ! ╔AN ═AC╨HEDRAN,1985
  10.  
  11. ! ╘HIS IS A DEMONSTRATION OF THE USE
  12. ! OF BATCH FILES IN ├╧═┴╠ 2.01
  13. ! ┼MBEDDING CHARACTERS IS NEAT.
  14. ! GREEN RED BLUE₧
  15. ! ╙ETTING SETTING TEXT COLOUR TO MATCH
  16. ! THE BACKGROUND HIDES THE TEXT.
  17.  
  18. ! INTERACTIVE INPUT:
  19. ! ╨╥┼╙╙ ╙╚╔╞╘ ╘╧ ├╧╬╘╔╬╒┼
  20. A:=0
  21. ╫╚╔╠┼ A=0 ─╧ A:=╨┼┼╦($28D)
  22. ╨┴╟┼
  23. ! ╘RY LOOPING:
  24. ! ╠OOP 10 TIMES
  25. COUNTER:=10
  26. ╙┼╠┼├╘ ╔╬╨╒╘ "BAT.LOOP"
  27.                                        
  28.